home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
phmacro.zip
/
STD3.OUT
< prev
next >
Wrap
Text File
|
1993-01-04
|
1KB
|
67 lines
fn: nam=<f> parms=<a> def=<f( x * (a))>
<fffffffffff>
obj: nam=<x> def=<2>
<x>
obj: nam=<g> def=<f>
<g>
obj: nam=<w> def=<0,1>
<www>
obj: nam=<h> def=<g(~>
<hhh>
0:
:
0:
:
0: g(x+(3,4)-w) | h 5)
:
0: f(x+(3,4)-w) | h 5)
: g
1: x+(3,4)-w
:
1: 2+(3,4)-w
: x
1: 2+(3,4)-0,1
: x www
0R: f(_)
:
0R: f( x * (a))
: fffffffffff
hide-set #0 = {fx}
hide-set #1 = {fw}
0R: f( x * (2+(3,4)-0,1))
: ffffffff0fffffff111ff
hide-set #2 = {fg}
hide-set #3 = {fgx}
hide-set #4 = {fgw}
0: f( x * (2+(3,4)-0,1)) | h 5)
: 222222223222222244422
0: F( x * (2+(3,4)-0,1)) | h 5)
: 222222223222222244422
0: F( 2 * (2+(3,4)-0,1)) | h 5)
: 222322223222222244422
0: F( 2 * (2+(3,4)-0,1)) | g(~ 5)
: 222322223222222244422 hhh
hide-set #5 = {gh}
0: F( 2 * (2+(3,4)-0,1)) | f(~ 5)
: 222322223222222244422 5hh
1: ~ 5
: h
0R: f(_)
:
0R: f( x * (a))
: fffffffffff
hide-set #6 = {fh}
0R: f( x * (~ 5))
: ffffffff6ffff
hide-set #7 = {fgh}
hide-set #8 = {fghh}
0: F( 2 * (2+(3,4)-0,1)) | f( x * (~ 5))
: 222322223222222244422 7777777787777
0: F( 2 * (2+(3,4)-0,1)) | F( x * (~ 5))
: 222322223222222244422 7777777787777
hide-set #9 = {fghx}
0: F( 2 * (2+(3,4)-0,1)) | F( 2 * (~ 5))
: 222322223222222244422 7779777787777
0: f( 2 * (2+(3,4)-0,1)) | f( 2 * (~ 5))
: